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3* © 

$09 : :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY " | 
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999 18 i* ALL RIGHTS RESERVED. * 
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00 11 3% THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | 
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00 13 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
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0000 9 : FACILITY: MATH LIBRARY 
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0000 1 : ABSTRACT: 
0000 ¢ : 
0000 ; 
0000 4 ;-- 
0000 5; 
0000 6 : VERSION: 1 
0000 7: 
0000 8 ; HISTORY: 
0000 9: 
0000 40 ; AUTHOR: 
0000 41; Jonathan M. Taylor, 28-Jul-77: Version 0 
0000 42 ; 
9000 43 ; MODIFIED BY: | 
itd 45 : Steven B. Lionel, 19-Feb-79: Version 2 
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«SBTTL DECLARATIONS 


INCLUDE FILES: 
EXTERNAL SYMBOLS: 


MACROS: 


> PSECT DEC LARATIONS 


EQUATED SYMBOLS: 


PSECT _MTHS$CODE PIC, SHR, LONG, EXE, NOWRT 
OWN STORAGE: 
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-SBTTL MTHSJIDNNT = return nearest integer as INTEGER*4 


++ 
FUNCTIONAL DESCRIPTION: 


MTHSJIDNNT returns as its function value the INTEGER*4 
integer nearest to its REAL*8 argument, rounded away from zero. 


CALLING SEQUENCE: 

nearest_integer.wl.v = MTHSJIDNNT (arg.rd.r) 
INPUT PARAMETERS: 

arg - REAL*8 argument 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

FUNCTION VALUE: 


nearest_integer - trunc(arg + .5*sign(arg)) 


SIDE EFFECTS: 
Reserved operand and integer overflow can occur. 


-ENTRY MTHSJIDNNT, “M<IV> 
aa @4(AP), RO ; RO gets rounded argument 


MTHSJIONNT - Nearest Integer ba 3 dt B49 9138 4:16 YAn/yee Be o V04-00 Page 
Symbol table 66-SEP-1984 MTHRTL.S SMTHJIDNNT.MAR: 1 
MTHSJ IDNNT 00000000 RG 01 

res 

' Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
- ABS. 000000 ( g.} 0(¢ 0.) NOPIC USR CON ABS LCL —— NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 000000 ( od nm & Vor PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
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! Performance indicators ! 


f@Seeeeoeoeoo0 Sama nmacanna se maa} 


Phase Page faults CPU Time Elapsed Time 
Initialization 5 0:00: 8. 9 8:00: 1.3 
—e processing 1 3 8: _ " 2 H's 3:f 
Synbol table sort 39 00:89: 3 2 38 
Symbol table output 8:00; :01 0:00: 0.31 
Psect synopsis output BB: 0. 3 Bes 0:00.02 
Cross-reference output 0:00: 9-9 0:00:00.00 
Assembler run totals 27 0:00:01.24 00:00:09.66 


The working set Limit was 750 pages. 

1165 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space eeceeee to hold 1 non-local and 0 Local symbols. 
125 source Lines were read in Pass 1, gh dy pes object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


Macro Library name Macros defined 
“S25SSDUAZB:(SYSLIBISTARLET.MLB;200 SS” 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHJIDNNT/OBJ=OBJS$:MTHJIDNNT MSRC$:MTHJIDNNT/UPDATE=(ENHS$:MTHJ IDNNT) 
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